projects
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a026337
)
(rmail-make-basic-summary-line): Show 14 chars before @ and 11 after.
author
Richard M. Stallman
<rms@gnu.org>
Fri, 6 May 1994 23:59:28 +0000
(23:59 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Fri, 6 May 1994 23:59:28 +0000
(23:59 +0000)
lisp/mail/rmailsum.el
patch
|
blob
|
history
diff --git
a/lisp/mail/rmailsum.el
b/lisp/mail/rmailsum.el
index 3ea44ef0289fe4baf367747e5d0a5d213dfc8cf4..34ee023c9c72bedae9d1cd460bbdb6cdc0439a21 100644
(file)
--- a/
lisp/mail/rmailsum.el
+++ b/
lisp/mail/rmailsum.el
@@
-334,10
+334,10
@@
nil for FUNCTION means all messages."
(if (or (not mch) (<= len 25))
(substring from (max 0 (- len 25)))
(substring from
- (setq lo (cond ((< (- mch
9
) 0) 0)
- ((< len (+ mch 1
6
))
+ (setq lo (cond ((< (- mch
14
) 0) 0)
+ ((< len (+ mch 1
1
))
(- len 25))
- (t (- mch
9
))))
+ (t (- mch
14
))))
(min len (+ lo 25))))))))
" #"
(if (re-search-forward "^Subject:" nil t)